home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PASCSRC.ZIP / SETS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-01-15  |  2.1 KB  |  50 lines
  1.                                 (* Chapter 8 - Program 3 *)
  2. program Define_Some_Sets;
  3.  
  4. type Goodies = (Ice_Cream,Whipped_Cream,Banana,Nuts,Cherry,
  5.                 Choc_Syrup,Strawberries,Caramel,Soda_Water,
  6.                 Salt,Pepper,Cone,Straw,Spoon,Stick);
  7.  
  8.      Treat = set of Goodies;
  9.  
  10. var  Sundae         : Treat;
  11.      Banana_Split   : Treat;
  12.      Soda           : Treat;
  13.      Ice_Cream_Cone : Treat;
  14.      Nutty_Buddy    : Treat;
  15.      Mixed          : Treat;
  16.      Index          : byte;
  17.  
  18. begin
  19.                 (* define all ingredients used in each treat *)
  20.    Ice_Cream_Cone := [Ice_Cream,Cone];
  21.    Soda := [Straw,Soda_Water,Ice_Cream,Cherry];
  22.    Banana_Split := [Ice_Cream..Caramel];
  23.    Banana_Split := Banana_Split + [Spoon];
  24.    Nutty_Buddy := [Cone,Ice_Cream,Choc_Syrup,Nuts];
  25.    Sundae := [Ice_Cream,Whipped_Cream,Nuts,Cherry,Choc_Syrup,
  26.               Spoon];
  27.  
  28.                  (* combine for a list of all ingredients used *)
  29.  
  30.    Mixed := Ice_Cream_Cone + Soda + Banana_Split + Nutty_Buddy +
  31.             Sundae;
  32.    Mixed := [Ice_Cream..Stick] - Mixed; (* all ingredients not used *)
  33.  
  34.    if Ice_Cream     in Mixed then Writeln('Ice cream not used');
  35.    if Whipped_Cream in Mixed then Writeln('Whipped cream not used');
  36.    if Banana        in Mixed then Writeln('Bananas not used');
  37.    if Nuts          in Mixed then Writeln('Nuts are not used');
  38.    if Cherry        in Mixed then Writeln('Cherrys not used');
  39.    if Choc_Syrup    in Mixed then Writeln('Chocolate syrup not used');
  40.    if Strawberries  in Mixed then Writeln('Strawberries not used');
  41.    if Caramel       in Mixed then Writeln('Caramel is not used');
  42.    if Soda_Water    in Mixed then Writeln('Soda water is not used');
  43.    if Salt          in Mixed then Writeln('Salt not used');
  44.    if Pepper        in Mixed then Writeln('Pepper not used');
  45.    if Cone          in Mixed then Writeln('Cone not used');
  46.    if Straw         in Mixed then Writeln('Straw not used');
  47.    if Spoon         in Mixed then Writeln('Spoon not used');
  48.    if Stick         in Mixed then Writeln('Stick not used');
  49. end.
  50.